package linewrap;

require Exporter;


our @ISA = qw(Exporter);
our $VERSION = 1.00;
our @EXPORT = qw(linewrap);

use strict;
use warnings;

sub linewrap($$)
{
	my ($line_len) = $_[1];
	my $beg = 0;
	my $seqlen = length $_[0];
	my $new_seq;
	while ($beg < $seqlen)
	{
		$new_seq .= substr ($_[0], $beg, $line_len) . "\n";
		$beg += $line_len;
	}
	return $new_seq
}


